home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / data_11 / favorite.dir / 00034.ls < prev    next >
Encoding:
Text File  |  1995-04-21  |  1.3 KB  |  45 lines
  1. on startMovie
  2.   global slct, slcline, slfile, ngyou, mylist, zmylist, intrbal
  3.   put intrbal / 60 into field "TMP"
  4.   set the visible of sprite 12 to 0
  5.   set the visible of sprite 13 to 0
  6.   set the visible of sprite 14 to 0
  7.   if mylist = 0 then
  8.     set mylist to EMPTY
  9.     set zmylist to EMPTY
  10.     set the visible of sprite 11 to 0
  11.     set the visible of sprite 6 to 0
  12.   end if
  13.   put mylist into field "Selected"
  14.   put zmylist into field "zSelected"
  15. end
  16.  
  17. on stopMovie
  18.   global mylist, zmylist
  19.   set mylist to field "Selected"
  20.   set zmylist to field "zSelected"
  21. end
  22.  
  23. on slect
  24.   global slct, slcline, slfile, ngyou
  25.   if ngyou >= 12 then
  26.     put "ﾃ厩ﾃ嘉｢ﾃ韻ﾃ栄ﾃ鰻ﾃ嘉｡ﾃ…[ﾃ‡ﾃ•12ﾃｧﾂｰﾃ‡窶ｹﾃ‡ﾂｼﾃ‡ﾂｼﾃ‡ﾃ" & RETURN after field "Selected"
  27.     beep(2)
  28.     delete line 13 of field "Selected"
  29.     hilite line 125 of field "BOOKTITLE"
  30.     set the visible of sprite 12 to 0
  31.     set the visible of sprite 13 to 0
  32.   else
  33.     put slfile & RETURN after field "zSelected"
  34.     put slct & RETURN after field "Selected"
  35.     set ngyou to 1 + ngyou
  36.     set the visible of sprite 14 to 0
  37.     set the visible of sprite 6 to 1
  38.     set the visible of sprite 11 to 1
  39.     set the visible of sprite 13 to 1
  40.     set the visible of sprite 12 to 0
  41.     hilite line 125 of field "BOOKTITLE"
  42.     hilite line ngyou of field "Selected"
  43.   end if
  44. end
  45.